home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / tsutld21.zip / ADJCURS.BAT next >
DOS Batch File  |  1993-08-15  |  5KB  |  173 lines
  1. echo off
  2. cls
  3. echo ┌─────────────────────────────────────────────────┐
  4. echo │ ADJCURS.BAT Adjust cursor size                  │
  5. echo │ By Prof. Timo Salmi, ts@uwasa.fi, Sun 15-Aug-93 │
  6. echo └─────────────────────────────────────────────────┘
  7.  
  8. if "%1"=="" goto _help
  9.  
  10. rem Establish whether MsDos version 5.0 or later is being used
  11. set isver50_=
  12. ver | find "5.0" > tmpfind.$$$
  13. ver | find "6.0" >> tmpfind.$$$
  14. copy tmpfind.$$$ tmpfind1.$$$ > nul
  15. del tmpfind.$$$
  16. if exist tmpfind1.$$$ set isver50_=yes
  17. if exist tmpfind1.$$$ del tmpfind1.$$$
  18.  
  19. rem Check that the required files are available
  20. set found_=
  21. if exist mark.com set found_=yes
  22. for %%d in (%path%) do if exist %%d\mark.com set found_=yes
  23. for %%d in (%path%) do if exist %%dmark.com set found_=yes
  24. if not "%found_%"=="yes" goto _err_1
  25.  
  26. set found_=
  27. if exist bigcurs.exe set found_=yes
  28. for %%d in (%path%) do if exist %%d\bigcurs.exe set found_=yes
  29. for %%d in (%path%) do if exist %%dbigcurs.exe set found_=yes
  30. if not "%found_%"=="yes" goto _err_2
  31.  
  32. set found_=
  33. if exist bigncurs.exe set found_=yes
  34. for %%d in (%path%) do if exist %%d\bigncurs.exe set found_=yes
  35. for %%d in (%path%) do if exist %%dbigncurs.exe set found_=yes
  36. if not "%found_%"=="yes" goto _err_3
  37.  
  38. set found_=
  39. if exist release.exe set found_=yes
  40. for %%d in (%path%) do if exist %%d\release.exe set found_=yes
  41. for %%d in (%path%) do if exist %%drelease.exe set found_=yes
  42. if not "%found_%"=="yes" goto _err_4
  43.  
  44. set found_=
  45. if exist reset.exe set found_=yes
  46. for %%d in (%path%) do if exist %%d\reset.exe set found_=yes
  47. for %%d in (%path%) do if exist %%dreset.exe set found_=yes
  48. if not "%found_%"=="yes" goto _err_5
  49.  
  50. set found_=
  51. if exist mapmem.exe set found_=yes
  52. for %%d in (%path%) do if exist %%d\mapmem.exe set found_=yes
  53. for %%d in (%path%) do if exist %%dmapmem.exe set found_=yes
  54. if not "%found_%"=="yes" goto _err_7
  55.  
  56. rem The user's choices
  57. if %1==1 goto _do_1
  58. if %1==2 goto _do_2
  59. if %1==3 goto _do_3
  60. if %1==4 goto _do_4
  61. if %1==5 goto _do_5
  62. if %1==6 goto _do_6
  63. if %1==7 goto _do_7
  64. goto _help
  65.  
  66. :_do_1
  67. if "%bigcurs_%"=="loaded" goto _notwice
  68. mark bigcurs
  69. if "%isver50_%"=="yes" loadhigh bigcurs
  70. if not "%isver50_%"=="yes" bigcurs
  71. set bigcurs_=loaded
  72. mapmem /u
  73. goto _out
  74.  
  75. :_do_2
  76. if "%bigcurs_%"=="loaded" goto _notwice
  77. mark bigcurs
  78. if "%isver50_%"=="yes" loadhigh bigcurs m
  79. if not "%isver50_%"=="yes" bigcurs m
  80. set bigcurs_=loaded
  81. mapmem /u
  82. goto _out
  83.  
  84. :_do_3
  85. if "%bigcurs_%"=="loaded" goto _notwice
  86. bigncurs
  87. goto _out
  88.  
  89. :_do_4
  90. if "%bigcurs_%"=="loaded" goto _notwice
  91. bigncurs m
  92. goto _out
  93.  
  94. :_do_5
  95. set bigcurs_=
  96. if "%isver50_%"=="yes" release /u bigcurs
  97. if not "%isver50_%"=="yes" release bigcurs
  98. pause
  99. reset
  100. mapmem /u
  101. goto _out
  102.  
  103. :_do_6
  104. reset
  105. goto _out
  106.  
  107. :_do_7
  108. mapmem /u
  109. goto _out
  110.  
  111. :_err_1
  112. echo File MARK.COM not found in the current directory or at path
  113. echo Cursor size change not implemented
  114. goto _out
  115.  
  116. :_err_2
  117. echo File BIGCURS.EXE not found in the current directory or at path
  118. echo Cursor size change not implemented
  119. goto _out
  120.  
  121. :_err_3
  122. echo File BIGNCURS.EXE not found in the current directory or at path
  123. echo Cursor size change not implemented
  124. goto _out
  125.  
  126. :_err_4
  127. echo File RELEASE.EXE not found in the current directory or at path
  128. echo Cursor size restoration not implemented
  129. goto _out
  130.  
  131. :_err_5
  132. echo File RESET.EXE not found in the current directory or at path
  133. echo The file RESET.EXE is part of the tsutil35.zip (or later) package
  134. echo Cursor size restoration may be incomplete
  135. goto _out
  136.  
  137. :_err_7
  138. echo File MAPMEM.EXE not found in the current directory or at path
  139. goto _out
  140.  
  141. :_notwice
  142. echo.
  143. echo The resident BIGCURS has already been loaded
  144. echo Use ADJCURS 5 to remove it from memory
  145. goto _out
  146.  
  147. :_help
  148. echo Usage: ADJCURS [ChoiceNumber]
  149. echo   1  Big resident cursor
  150. echo   2  Medium resident cursor
  151. echo   3  Big transient cursor
  152. echo   4  Medium transient cursor
  153. echo   5  Restore original cursor for 1 and 2
  154. echo   6  Restore original cursor for 3 and 4
  155. echo   7  Map the resident programs
  156. echo Although BIGCURS.EXE and BIGNCURS.EXE can be used without further
  157. echo utilities, to use *this batch* you must have the TSR Utilities from
  158. echo TurboPower Software. In particular you'll need the programs MARK.EXE,
  159. echo RELEASE.EXE, and MAPMEM.EXE. Another utility that is necessary for this
  160. echo batch, is RESET.EXE by Timo Salmi. You should be able to obtain them by
  161. echo downloading TSRCOM34.ZIP and TSUTIL38.ZIP (or later) from any well-stocked
  162. echo BBS or FTP site, such as garbo.uwasa.fi, 128.214.87.1, Vaasa, Finland.
  163. echo.
  164. echo If you have MsDos 5.0 or later, ADJCURS.BAT loads the resident cursor high.
  165. echo.
  166. echo Warning, it is not advisable to load the resident cursor more than once.
  167. goto _out
  168.  
  169. :_out
  170. set isver50_=
  171. set found_=
  172. echo on
  173.